home *** CD-ROM | disk | FTP | other *** search
/ Shareware Super Platinum 8 / Shareware Super Platinum 8.iso / mac / PROGTOOL / FGL304D.ZIP;1 / EXBAS.ARJ / FGDOC / EXAMPLES / BASIC / CC-01.BAS < prev    next >
Encoding:
BASIC Source File  |  1994-01-24  |  422 b   |  31 lines
  1. REM $INCLUDE: 'fastgraf.bi'
  2.  
  3. DEFINT A-Z
  4.  
  5. DECLARE SUB Int1C(Flag)
  6.  
  7. CONST Esc = 27
  8.  
  9. DIM KeyCode AS STRING*1
  10. DIM AuxCode AS STRING*1
  11.  
  12. DIM SHARED Status1, Status2
  13.  
  14. Int1C(1)
  15.  
  16. Status1 = 0
  17. Status2 = 0
  18.  
  19. DO
  20.    PRINT
  21.    PRINT "Joystick 1 status:"; Status1
  22.    PRINT "Joystick 2 status:"; Status2
  23.    Status1 = 0
  24.    Status2 = 0
  25.    FGgetkey KeyCode, AuxCode
  26. LOOP WHILE KeyCode <> CHR$(Esc)
  27.  
  28. Int1C(0)
  29.  
  30. END
  31.